with c_arbre; 
--generic

package reconeixedor is
max : integer := 32; -- 6;
	--package mypila is new cpila(element => node);
  --use mypila;
subtype valors is character;

	package mytree is new c_arbre;
	use mytree;
  --type expr is private;



  type expr is record
    v: string(1..max);
    n: integer;
  end record;

  procedure shift(exp: in out expr);
  procedure rec_exp_ini(exp: in out expr);
  procedure rec_exp(exp: in out expr; e: in out arbre);
  procedure rec_fact(exp: in out expr; f: in out arbre);
  procedure rec_term(exp: in out expr; t: in out arbre);
	procedure list_all2;

semicolon_error: exception;
--private

end reconeixedor;
